Namespace Core.Net.Messages
    Public MustInherit Class Message
        Public Const ID As Byte = 0

        Public Sub New(ByVal pBA_Message As Byte())

        End Sub
    End Class

    Public Class Msg_ProfileRequest
        Inherits Message

        Public Shadows Const ID As Byte = 0

        Public Sub New(ByVal pBA_Message As Byte())
            MyBase.New(pBA_Message)

        End Sub
    End Class

    Public Class Msg_Profile
        Inherits Message

        Public Shadows Const ID As Byte = 1

        Public Sub New(ByVal pBA_Message As Byte())
            MyBase.New(pBA_Message)

        End Sub
    End Class
End Namespace
